home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Gen. / Mac Yellow Pages 1.0 / card_32734.txt < prev    next >
Encoding:
Text File  |  1990-08-17  |  1.5 KB  |  77 lines
  1. -- card: 32734 from stack: in.0
  2. -- bmap block id: 33001
  3. -- flags: 4000
  4. -- background id: 31331
  5. -- name: Publicity Picture 2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global startTime
  9.   put the seconds into startTime
  10. end openCard
  11.  
  12. on idle
  13.   global startTime
  14.   if the seconds - startTime > 3 then
  15.     visual effect dissolve
  16.     go to card "Publicity Picture Dissolve"
  17.     visual effect dissolve
  18.     go to card "Publicity"
  19.   end if
  20. end idle
  21.  
  22. on help
  23.   send mouseUp to card button "Help"
  24. end help
  25.  
  26.  
  27. -- part 1 (button)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=19 top=40 right=281 bottom=497
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Skip Picture
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   visual effect dissolve
  42.   go to card "Publicity Picture Dissolve"
  43.   visual effect dissolve
  44.   go to card "Publicity"
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 2 (button)
  50. -- low flags: 00
  51. -- high flags: 2000
  52. -- rect: left=12 top=305 right=337 bottom=48
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Help
  61. ----- HyperTalk script -----
  62. on mouseDown
  63.   play stop
  64.   play harpsichord a7e
  65. end mouseDown
  66.  
  67. on mouseUp
  68.   answer "Click the picture for more." with "OK"
  69.   global startTime
  70.   put the seconds into startTime
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part contents for background part 13
  76. ----- text -----
  77. PUBLICITY